home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / PublicDomain / Spiele / EricUpdate1.5 / Install < prev    next >
Text File  |  1999-08-03  |  1KB  |  68 lines
  1. ; The Legend of the Elves v1.5 Update Installation Script
  2. ; (C) 1998/1999 Peter Armann
  3.  
  4. (complete 0)
  5.  
  6. (set #vernum (getversion))
  7. (set #ver (/ #vernum 65536))
  8. (set #vb (database "vblank"))
  9.  
  10. (If (= (cat #vb) 60)
  11.    (abort "You need a PAL Amiga to run \"The Legend of the Elves\".\nSorry!")
  12. )
  13.  
  14. (message (cat "Thank you for choosing to update \"The Legend of the Elves\".\n\n"
  15.               "This script will guide you through the simple installation procedure."  
  16.          )
  17. )
  18.  
  19. (set #destdir
  20.    (askdir
  21.       (prompt "Please select the directory where the\n\"Legend of the Elves\" 'Elves' directory exists")
  22.       (help @askdir-help)
  23.       (default "Work:")
  24.    )
  25. )
  26.  
  27.  
  28. (set @default-dest (tackon #destdir "Elves"))
  29. (if (not (exists (@default-dest)))
  30.    (abort (cat "The game doesn't seem to be installed here\n\n"
  31.                "The 'Elves' directory does not exist"
  32.           )
  33.    )
  34. )
  35.  
  36. (copyfiles
  37.    (source "Eric")
  38.    (dest @default-dest)
  39. )
  40.  
  41. (complete 33)
  42.  
  43. (copyfiles
  44.    (source "Legend.guide")
  45.    (dest @default-dest)
  46. )
  47.  
  48. (complete 66)
  49.  
  50. (copyfiles
  51.    (source "")
  52.    (dest @default-dest)
  53.    (pattern "ODATA#?")
  54. )
  55.  
  56. (complete 99)
  57.  
  58. (message (cat "Thank you for updating \"The Legend of the Elves\"\n\n"
  59.               "If you haven't already, please register your copy of\n"
  60.               "\"The Legend of the Elves\" for free at\n\n"
  61.               "http://www.ericelf.freeserve.co.uk/\n\n"
  62.               "(Please note the change of web address)"
  63.          )
  64. )
  65.  
  66. (complete 100)
  67. (exit)
  68.